Imports CapaDeDatos
Public Class nTblCalificaciones
    Private TblCalificaciones As dTblCalificaciones = New dTblCalificaciones()
    Private Ente As dTblEnteC = New dTblEnteC()
    Private Localidad As nLocalidad = New nLocalidad()

    Public Function Modificar(ByVal CodigoCalificacion As String, ByVal CodigoLocalidad As String, ByVal Nombre As String, ByVal Identificacion As String, ByVal FechaAlta As String, ByVal Observacion As String, ByVal CodigoEnte As String) As Boolean
        If (CodigoCalificacion <> "" And Nombre <> "") Then
            Return TblCalificaciones.Modificar(CodigoCalificacion, CodigoLocalidad, Nombre, Identificacion, FechaAlta, Observacion, CodigoEnte)
        Else
            Return False
        End If
    End Function
    Public Function Insertar(ByVal CodigoLocalidad As String, ByVal Nombre As String, ByVal Identificacion As String, ByVal Observacion As String, ByVal CodigoEnte As String) As Boolean
        If (CodigoLocalidad <> "" And Nombre <> "" And Identificacion <> "" And Observacion <> "" And CodigoEnte <> "") Then
            Return TblCalificaciones.Insertar(CodigoLocalidad, Nombre, Identificacion, Observacion, CodigoEnte)
        Else
            Return False
        End If
    End Function
    Public Function Buscar(ByVal CodigoCalificacion As String, ByVal CodigoLocalidad As String, ByVal Nombre As String, ByVal Identificacion As String, ByVal FechaAlta As String, ByVal Observacion As String, ByVal CodigoEnte As String) As DataSet
        If CodigoLocalidad = "-1" Then
            CodigoLocalidad = ""
        End If
        If CodigoEnte = "-1" Then
            CodigoEnte = ""
        End If
        Dim dtsPrincipal As DataSet
        dtsPrincipal = TblCalificaciones.BuscarFiltrado(CodigoCalificacion, CodigoLocalidad, Nombre, Identificacion, FechaAlta, Observacion, CodigoEnte)
        dtsPrincipal.Tables(0).Columns.Add("Descripcionlocalidad")
        dtsPrincipal.Tables(0).Columns.Add("DescripcionEnte")
        Dim i As Integer
        For i = 0 To dtsPrincipal.Tables(0).Rows.Count - 1
            Try
                dtsPrincipal.Tables(0).Rows(i)("Descripcionlocalidad") = Localidad.Buscar(dtsPrincipal.Tables(0).Rows(i)("CodigoLocalidad").ToString()).Tables(0).Rows(0)("Nombre").ToString()
            Catch ex As Exception
                dtsPrincipal.Tables(0).Rows(i)("Descripcionlocalidad") = "Error, Localidad no Encontrada"
            End Try
            Try
                dtsPrincipal.Tables(0).Rows(i)("DescripcionEnte") = Ente.BuscarFiltrado(dtsPrincipal.Tables(0).Rows(i)("CodigoEnte").ToString(), "", "", "", "", "", "").Tables(0).Rows(0)("RazonSocial").ToString()
            Catch ex As Exception
                dtsPrincipal.Tables(0).Rows(i)("DescripcionEnte") = "Error, Ente no Encontrado"
            End Try
        Next
        Return dtsPrincipal

    End Function
    Public Function Eliminar(ByVal CodigoCalificacion As String) As Boolean
        If (CodigoCalificacion <> "") Then
            Return TblCalificaciones.Eliminar(CodigoCalificacion)
        Else
            Return False
        End If
    End Function

End Class
